#!perl -T

use strict;
use warnings;
use Test::More tests => 4;;
use Test::BoostUnit  qw(:ALL);

like(makeError ("Bad Error"), qr|<Error file="None" line="1"><!\[CDATA\[\s*Bad Error\s*]]>\s*</Error>\s*|ms, "makeError - Error Message");
like(makeError ("Bad Error", "InThisFile.cpp"), qr|<Error file="InThisFile.cpp" line="1"><!\[CDATA\[\s*Bad Error\s*]]>\s*</Error>\s*|ms, "makeError - Error Message with file");
like(makeError ("Bad Error", "InThisFile.cpp", "654"), qr|<Error file="InThisFile.cpp" line="654"><!\[CDATA\[\s*Bad Error\s*]]>\s*</Error>\s*|ms, "makeError - Error Message with file and line");
like(makeError (qq/--error "Bad Error" --line 654/), qr|<Error file="None" line="654"><!\[CDATA\[\s*Bad Error\s*]]>\s*</Error>\s*|ms, "makeError - Error Message with just a line");

